home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / windmgr2.arc / SAMPLE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1980-01-01  |  823 b   |  16 lines
  1. {$I WINDMNGR.INC}
  2.  
  3. begin
  4.      Frame (5,5,75,20,124,31,3,1,1,0);
  5.      Title (' Sample Window ',124,112,5,5,14,0);
  6.      WriteXY ('This is an example of how fast a window can be created and',31,10,7,0);
  7.      WriteXY ('filled with text using only the Frame, WriteXY, and Title',31,10,8,0);
  8.      WriteXY ('Procedures.',31,10,9,0);
  9.      WriteXY ('The Window Manager consists of a total of ten procedures.',31,10,11,0);
  10.      WriteXY ('        Initialize                       Frame',31,10,13,0);
  11.      WriteXY ('        Title                            WriteXY',31,10,14,0);
  12.      WriteXY ('        Mode                             SetWindow',31,10,15,0);
  13.      WriteXY ('        Open                             Remove',31,10,16,0);
  14.      WriteXY ('        SelectWindow                     SetDefs',31,10,17,0);
  15. end.
  16.